#!/usr/bin/perl

foreach $line (<>) {
	$line =~ s/\r//;
	$line =~ s/\n//;
	print $line . "\n";
}
